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Welcome to the Premier Issue! 



It was hard to imagine what this magazine would even 
look like on March 15th when we decided to start a 
publication supporting the Big Board. And now it's 
really exciting to see it take form. 

Starting a new magazine is kind of a scary thing. You 
need interesting things to put in magazine so people 
will want to read it. You need people willing to take a 
chance and subscribe to a new publication, sight un- 
seen. You need lots and lots of hours alone, staring at a 
video monitor, trying to generate ideas and direction. 
You need people who are willing to donate time and 
ideas to a dream. And you need a wife who is not only 
understanding but who does graphic design, account- 
ing, paste-up, technical illustrating and schematic 
drafting. So thanks to all you folks, I get to say "Wel- 
come." 
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Our typesetters, Patty Morris and Martin White are 
super people to work with (they are getting a Big 
Board to use for text editing). And Ruth, our technical 
editor is probably as excited as anyone about Micro C. 

Then there are the people who have already submitted 
material for publication. I talked to Don Retzlaff while 
I was still deciding whether or not to jump in. His ex- 
citement about a user's group and his offer to write 
some very interesting things really made a publication 
look feasible. Don's first article appears in this issue. 
Thanks Don. 

John Jones wrote such interesting things on his sub- 
scription form that I had to call him. He has a number 
of useful utilities, including the disk formatting pro- 
gram in this issue. More from John in future issues. 

Plus, I have just received a really incredible disk from 
AB computers including a complete hardware and 
software interface for minifloppies, a reverse video 
cursor, and more. Stay tuned, because these super 
people, and you, are doing some great things with the 
Big Board. 



Hi, Y'aU! 




a 



h*fh 



David Thompson 
Editor & Publisher 



Letters 



New Products Received at Micro C 



Dear Editor, 

I am thinking of using one parallel 
port as an address bus to tell periph- 
erals when to access the other paral- 
lel port. One bit would set the direc- 
tion and then seven bits would 
remain to address up to 128 periph- 
erals. These could include A/D's, D/ 
A's, plotters, CRT vector graphics, 
and so on. I would like to see a 
standard scheme so we can trade de- 
signs within the group. 
Frank Gentges 
9251 Wood Glade Dr 
Great Falls, VA 22066 

Editor's Note: 

I think Frank has an excellent idea. In fact, 
how does everyone feel about using port A for 
data and port B for address and control? Bit 7 
(PB7) on port B could be the control bit. What 
say? 

What would be super now, would be for 
someone to write a simple little general pur- 
pose parallel port driver that would reside up 
with the PFM monitor and could be called via 
the CPIM punch or directly. If someone did 
such a thing, it would run in the September 
issue, guaranteed. 

And, if someone came up with a latch for 
translating 8 bits of port A into 16 bits of 
address and 8 bits of data why there' d be the 
start of a PROM burner or an S-100 bus in- 
terface etc. 

Dear Folks, 

I would like to locate Jim Rea, de- 
signer of PolyVue/80 or Micro Con- 
cepts the outfit that marketed Poly 
Vue. Has anyone done a modem 
interface for SIO port A? Or, has 
anyone configured Modem7 from 
the CPMug for the Big Board? 

The Editor. 

Dear Editor, 

Why doesn't "clear to end of 
screen" work on the three boards 
I've seen? 
Cole Chevalier 
17862 Fitch 
Irvine, CA 92714 

Dear Editor, 

I need: (1) modem driver for BB, 
(2) parallel printer driver, (3) to con- 
tact other users in my local area. 
Daryl Coulhart 
532 Lake Bayview Ct 
Shoreview, MN 55112 



VEDIT— Text editor. 

I have Vedit up and running on 
my Big Board and once you figure 
out a couple of idiosyncrasies it is 
easy to customize and install. Get 
the CRT version rather than the 
memory mapped and just follow the 
directions for the ADM-3A. 

However: Do not enter "Carriage 
Return" for the "COMMON 2ND 
CHARACTER IN THE ESCAPE SE- 
QUENCE." The only character I've 
found that works is ESC (again). Af- 
ter this you have to use ESC W or 
something rather than ESC ESC to 
leave visual mode, and for some rea- 
son you have to use the default for 
the "command iteration brackets." 
These brackets are < and > rather 
than [ and ] by the way. 

Once you have it up and running, 
however, it is a small (10K), but very 
powerful text editor. (I am using it 
now to do my text editing). 

SMALL C and SMALL C+ 

If you want to get your feet wet in 
C and still generate source code that 
will run on PDP-lls running Bell 
Labs' C, then these two packages are 
worth considering. I purchased 
Small C from the Code Works, Box 
550 Boleta, CA 93017. 1 mean, $15 for 
a CP/M disk — how could I go 
wrong? It is neat, kind of like start- 
ing out using integer basic. Plus, it is 
public domain! Several of the fel- 
lows at Tektronix are working on it 
now, doing some optimizing, etc. 
The printed document is pretty 
minimal but when combined with 
the book, "The C Programming Lan- 
guage" by Kernighan and Ritchie, it 
is sufficient. The source for Small C, 
also written in Small C (it compiles 
itself) is also on the disk. Small C 
generates assembly code which can 
be assembled by ASM. 

I picked up Small C+ at the Com- 
puter Faire from Alpha Omega 
Computer Systems. P.O. Box U, 
Corvallis, OR 97330. They say they 
have fixed numerous bugs in Small 
C and have added for-loops, do- 
while, and case statements, among 
other things. Small C+ requires M80 
and L80 to compile the assembly 
code it generates. 



Since small C+ is also public do- 
main, I plan to make it available as 
part of a group exchange disk. Small 
C+ also compiles itself and can be 
compiled by the original Small C. 
The source and the documentation 
are on the disk. Two programmers at 
Alpha Omega did the extension 
pretty much as a personal project 
and I hope to talk to them about 
Small C+ in the near future. 

PASCAL/MT+ 

I learned Pascal on a big system, I 
mean a BIG system (60 bits/word), 
and after using some of the small 
subset languages commonly availa- 
ble for micros (Small C, ALGOL/M, 
. . . ) I didn't really expect much more 
than a usable subset of Pascal. I was 
wrong. Pascal/MT+ is playing with 
a full deck. 

I have tried it on some small "gee I 
wonder if it will" type programs, 
and it did. Hopefully I will have a 
chance to look at it more thoroughly 
in the near future. Manual and all, it 
is an impressive package. MT Micro- 
systems has also put out an editor 
and debugger package to use with 
Pascal/MT+ (I've heard). If it is any- 
thing like the language package, the 
combination should be hard to beat 
for someone doing serious applica- 
tion programming. Contact MT Mi- 
crosystems, 1562 Kings Cross Dr., 
Cardiff-by-the-sea, CA 92007. 

Crowe Z80 Assembler 

Byte's Nybbles made available a 
Z80 assembler by Patrick Crowe. 
The assembler uses standard Zilog 
Z80 mnemonics as defined in the 
"Zilog Z-80 Assembly Language 
Programming Manual." Byte origi- 
nally made this program available 
for $4.00 as a printed listing. I'm 
checking now to see if it is still 
available or if we can make it availa- 
ble, this time on disk instead of as a 
60-page listing. 

What makes this piece of software 
particularly interesting is that John 
Jones did the I/O linking for the Big 
Board and has supplied the source of 
that. And it works very well. More 
about all this as I get information 
from Byte. (All kinds of exciting 
things! Thanks, John.) ■ ■ ■ 
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Now for the news you have all been 
waiting for, the latest, greatest from 
Digital Research Computers. 

New ROMs for old. 

Jim Tanner is now shipping the Big 
Board with character ROMs created 
by yours truly. And, he will reburn 
(for free) any of the old style upper 
case and smaller upper case ROMs 
you send him. If you can't part with 
your old character ROM for a few 
days then send him $10.00 and he 
will send you a new ROM. 

New video rocks for free. 

For those of you who haven't appre- 
ciated the wiggle you get on the 
video display, here's relief. (No, you 
don't have to give up drinking.) Any 
registered owner who sends in his 
serial number and date of purchase 
to Jim will receive, free, a 13.9776 
MHZ crystal. Take out the old 14.318 
video crystal and replace it with the 
new one and the wiggle will be 
gone. Not even a genie could do bet- 
ter than that. 

4 MHz the easiest way of all. 

• Step 1. Remove U96 

• Step 2. Jumper what was pin 4 of 
U96topin4ofU97. 

• Step 3. DON'T replace U96. 

That's it, no crystals to buy and no 
board runs to cut. However, it won't 
work on all boards because of the 
precharge requirements on the 
RAM. 

First of all, you probably need 
200ns RAM chips. Big Boards have 
been shipped with 300ns, 250ns, 
and 200ns chips. About 40% were 
300ns, 40% 250ns, and the other 
20% were 200ns. This mod gener- 
ates a clock that is more like 60/40 
rather than 50/50 High/Low so even 
the 200ns RAM is just barely making 
it. 

Out of three boards that they have 
modified at Digital Research two 
worked and one didn't, though they 
all had 200ns RAM. On most of the 
boards it is pretty easy to tell how 
fast the RAM is. The number on the 
chip will be 4116-X where X is proba- 
bly 20, 25 or 30. 20 stands for 200ns, 
25 stands for 250ns and 30 stands for 
300ns. The National chips have a -4 
(continued next column) 
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How do you contribute to Micro C? 
What are we interested in? What 
should you send, disk, printer out- 
put, post card, papaya leaf? What if 
you can't write? What if the thing 
you are doing is pretty basic or may- 
be too advanced? Well, here is the 
information. 

Form: Send articles on paper, 
(double-spaced) or, even better, on 
disk. If you send a disk, we will copy 
the contents of the latest Big Board 
user's group disk onto your disk be- 
fore we return it. 

It's easier on us if you don't in- 
clude any formatting characters in 
the text. These characters may help 
your text formatter but they have to 
be removed before Patti and Martin 
can typeset the article. 

Programs: Here a disk is a super 
way to go. Please include at least a 
few paragraphs of introduction. If 
the program requires compiling or 

Notes from Garland continued 

for 250ns and a -3 for 200ns. Any 
others you should look up in a parts 
book. 

If you are among the folks who 
have done a successful mod to speed 
up the Big Board, please send it in 
and I'll publish it (for those of us 
who don't have 200ns RAM or can't 
get this mod to work). In fact, if I get 
20 different mods for speeding up 
the Big Board, I'll publish them all. 
Why not? 

Double double density density. 

Jim has someone working on a 
three-chip board which will plug in- 
to the 1771 socket. It will do single 
and double density on 8 inch and 
mini floppies (according to Tanner). 
I would guess that they are aiming 
for availability sometime late sum- 
mer or early fall but no one's making 
any promises. 

The chips will be Western Digital 
and the main controller will be the 
1795. (Hooray, it's NOT the 1791.) 
Perhaps those of you struggling 
with the idiosyncrasies of the 1791 
should write to Western Digital for a 
new data book. 



assembling please include a COM 
file along with the source. And if the 
compiler or assembler is public do- 
main please include it and anything 
else needed to do the compilation. 
Most of the software contributed 
will be placed in a group disk and 
made available to everyone in the 
group. 

Personal information: Please in- 
clude some information about your- 
self (like raising bees and running 
your big board off wind power) and 
about how you are using the Big 
Board. 

What to write about: We're look- 
ing for anything on the following 
list, along with just about anything 
not on the following list. 

• Hardware interfacing, complete 
with schematics (we can redraw 
them if it's needed) and comments 
about what the circuit does and 
how it does it. 

• Software drivers or other mods to 
the operating system. This time in- 
clude a listing, etc. (See "Pro- 
grams" above.) 

• Reviews of software take a critical 
look at how easy it is to learn, how 
powerful it is, and how easy it is to 
use once you've learned it. Note: 
part of the user interface is deter- 
mined by the quality of the docu- 
mentation and part by the struc- 
ture of the software. 

• Reviews of languages take a criti- 
cal look at the language for particu- 
lar applications, systems, etc. 
What are its weaknesses (size, 
speed) and it's strengths (floating 
point, string manipulation, docu- 
mentation, for instance). The pri- 
mary languages I'm looking for 
are, C, Pascal, assembly, Fortran, 
Forth, Lisp, APL, ADA. 

• Inside scoops on the latest, 
greatest rumors from the industry. 
It sometimes takes a little yellow 
journalism to keep the industry on 
its toes. If you would like to use a 
pen name like ZOSO does, let me 
know and presto, the Micro Cor- 
nucopia shadow can strike fear in- 
to the hearts of those wearing their 
three-piece-vested-interests. 

• And anything else (which covers a 
lot of things). ■ ■ ■ 
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Power to the Big Board 



By David Thompson 



Notes on 
Book Reviews 
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Schematic of +12V Regulator 

Picking a power supply these days 
can be a problem. Everyone and his 
kid brother are building them in var- 
iations that read like the marquee at 
an ice cream parlor. So the following 
may be a little help, both in the selec- 
tion of a supply and in understand- 
ing the consequences of a poor 
choice. 

A group of us in Portland are us- 
ing the Power One model CP 384. 
This is a simple linear supply with 
three outputs, +5V at 9 amp, -12V at 
about an amp, and +24V at .7 amp 
average or 5 amp peak. The price for 
this unit is about $120 in single unit 
quantities. It includes over- voltage 
and over-current protection. 

This supply is made to power 8- 
inch disk drives but if you add a sim- 
ple 3-terminal regulator for +12V, it 
will also supply all the power for the 
Big Board. 

To add +12V, tie the input of the 
regulator to the + lead of either of 
the two 60V electrolytics. The con- 
necting post marked 24V return is 
ground (in fact, I just tied all the re- 
turn posts together and ran them to 
the aluminum frame on the supply). 
The + lead on the electrolytics is at 
about 38V above ground which is 
higher than a standard 12V regulator 
(7812) is rated for. One member of 
our group is using a 7812 anyway 
and it is working fine. The LM317, 
however, is supposed to handle 38 
volts just fine and it has a variable 
output to boot. Its output is de- 
signed to be 1.2V above the adj. 
lead, so by having approximately 1/ 
10 of the drop between the output 
and the reference and 9/10 between 
the reference and ground you 
should get 12V. It comes out pretty 
close. 



Mount the regulator against the 
frame with a mica insulator. Be sure 
to use silicon grease because it has to 
dissipate up to 13 watts. 

Double check yourself. 

It's a good idea to put a resistor 
load on the supply and then use a 
digital voltmeter to double check the 
outputs before connecting it up to 
your system. I have heard some 
pretty gruesome stories about folks 
accidentally putting outrageous 
voltages on their systems. Some- 
times the systems have gone down 
permanently, other times they have 
gone temporarily insane, while a 
few have miraculously survived. It's 
best, obviously, to check the supply 
thoroughly. 



O 



LM3I7 
(wowr) 



ADJUST 



VOLTAGE 
IN 



VOLTAGE 
OUT 

LM 317 Regulator 

Also, check to see that the supply 
will deliver 24V at 5 amps. The 
Power One's current limit is set at 1 
amp at the factory. It will work in the 
circuit that way until you try to write 
something on the disk. The drive 
can then get very strange, generat- 
ing random CRC errors and in some 
cases rendering a disk unusable. 

If you a having drive problems, 
check the 24V line during a write op- 
eration. It shouldn't drop below 
22V. (If the 24V line drops below 
15V, you will probably get a buzz as 
the relay tries to load the head.) 

To adjust the 24V current limit on 
the Power One Supply, locate the 
small screwdriver pot marked "24V 
LLIMIT" and turn the control fully 
clockwise. It should now give you 5 
amps at a rock solid 24V. 

If you have had experience with 
other power supplies, let me know 
and I'll pass the word along here in 
Micro C. ■ ■ ■ 



A good book or manual is a conver- 
sation with the author. At first it is a 
story, the reader sharing experi- 
ences with the author through the 
transparency of the written word. 
Later when the reader has questions 
about the material covered, the con- 
versation turns to question and an- 
swer and the book becomes a refer- 
ence volume. 

Conversation: The tone of the 
conversation is very important. No 
one would freely choose to sit 
through hour upon hour of imper- 
sonal lecture if there were any easier 
way to get the same information. 
And yet some authors get mired in 
pages of third person passive. 
Transparency: When the words 
move you smoothly and easily from 
idea to idea, then what you see are 
the ideas, not the words. The words 
have become transparent. If the sen- 
tences are too long and confusing or 
are short. Choppy. Broken up. Or if 
the ideas don't fit well together, then 
the conversation is reduced to one 
word at a time. 

Asking questions: Technical 
books are generally used for two pri- 
mary purposes. First, they are learn- 
ing tools (the original conversation) 
and second, they are references as 
questions arise. Many technical 
books are arranged as training man- 
uals only or as reference manuals 
only (sometimes for very good rea- 
son). 

For instance, Microsoft's Basic 80 
manual is primarily an alphabetical 
list of commands, which is fine if 
you know what commands you 
need to use and just need syntax ex- 
amples. Kernighan and Ritchie's C 
book, on the other hand, is a well 
written introduction to the lan- 
guage, but if you want to look up a 
command you will have to start at 
the index and then refer to three or 
more places scattered through the 
book. At least they did an index. 

And finally all the things you nor- 
mally notice when reading a book: 
• Content. Is the information appro- 
priate to this group. Is the book a 
bargain in terms of information 
content. 

(continued next page) 
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David Thompson Reviews 



Using CP/M, 
A Self-Teaching Guide 
by Fernandez and Ashley 
John Wiley & Sons 
ISBN 471 08011-X 

"Using CP/M" is the book that in- 
troduced me to CP/M. I purchased 
this text immediately after ordering 
the Big Board and by the time I had 
my system running I was pretty 
comfortable with the simpler por- 
tions of its operating system. But 
then I had already read the book 
cover to cover at least three times in 
anticipation. 

The authors use an informal, con- 
versational, writing style that's clear 
and easy to read. The text comes in 
short chunks. Each half-page or so, 
is followed by approximately a half- 
page of questions about the material 
just covered. I just skipped the ques- 
tions, which meant that I skipped 
about half the total book. If you're 
really into questions you can use 
mine. 

The book starts at a beginning lev- 
el and stays there. It goes over and 

Notes on Book Reviews continued 

• Organization. Is the way the au- 
thor progresses into the subject ob- 
vious? Is it easy to go back and find 
the information you need? 

• Graphic design. Is the book visu- 
ally appealing? Can you skim 
through glancing at the headlines 
and the illustrations and follow the 
book's progression through the 
subject? 

• Illustrations. Are the illustrations 
well thought out and technically 
accurate or just afterthoughts to 
pretty up the page? 

• Author's command of the subject. 
It's fun to catch a mistake in print. 
It's sort of like Moses messed up 
when chipping the rock, but too 
many errors cast doubt on the va- 
lidity of the whole book. 

So if you have books that are inter- 
esting to you and might be interest- 
ing to others in the group then by all 
means put the information down on 
a disk or paper or post card or what- 
ever and let us know. 



over the basics; spending 9 pages, 
for instance, on how to enter gener- 
alized filenames (*.*). And then it 
covers DDT in 10 lines. 

Graphically speaking, "Using CP/ 
M" doesn't make it. The writers or- 
ganized the material pretty well but 
that organization disappears into a 
forest of sameness. Even the ques- 
tion sections are not visually sepa- 
rated well from the text, so it is 
sometimes hard for your eye to skip 
to the next piece of text. And skim- 
ming through the text to find a par- 
ticular command is nearly impossi- 
ble. 

The only prayer this book has as a 
reference is the index. But if some- 
thing didn't make the index you're 
in real trouble. Try to find the CP/M 
line editing commands (not ED). I 
gave up trying. 

All in all, this text is reasonable for 
someone who is just starting out and 
and wants to do a lot of light read- 
ing. 



The CP/M Handbook with MP/M 

by Rodnay Zaks 

Sybex 

ISBN 89588 048 2 

I got "The CP/M Handbook" after 
trying to use "Using CP/M" for a ref- 
erence, so most of my experience 
with this text is for reference work. 
It's a real improvement. This book is 
full of tables, charts, reference 
guides and appendices. The chap- 
ters are organized in logical manner. 
The design and many illustrations 
(and index) help the reader locate 
specific information. 

All of Zak's books that I've seen 
have been easy to read. The book 
starts at a beginning level and then 
progresses to to such things as re- 
configuring CP/M for different sys- 
tem sizes. Advanced topics such as 
DDT and ASM, however, are cov- 
ered just enough for the reader to ac- 
cess the programs. DDT gets about 
2V2 pages and ASM gets about 3. 
The reader is then referred to the 
user's guide from Digital Research. 

This is a good text for someone us- 
ing CP/M for running applications 



programs. PIP is pretty thoroughly 
covered in its own chapter and ED 
gets the detailed look it needs to 
keep the reader from losing his cur- 
sor entirely. So, for those not dig- 
ging heavily into CP/M itself, this 
book is a definite option. 



Osborne CP/M User Guide 
By Thorn Hogan 
Osborne McGraw-Hill 
ISBN 931988-44-6 

The "Osborne CP/M User Guide" is 
the latest book to jump on the CP/M 
bandwagon and is the most techni- 
cal of the three books. The introduc- 
tion for beginners is relatively brief; 
and PIP, for instance, is presented in 
21 pages of formatted text rather 
than a chapter in standard para- 
graph form. 

This book contains a complete 
chapter on assembly language utili- 
ties, a subject skimmed over by the 
other texts. In fact, DDT and ASM 
each get 12 pages of remarkably 
thorough coverage. Like the Sybex 
book, Hogan makes extensive use of 
appendices for command summa- 
ries, etc. but he also adds some extra 
goodies like an annotated bibliogra- 
phy and addresses of companies 
supplying CP/M based products. 
(Hooray!) 

Hogan's writing style is variable. 
Generally it is friendly but there are 
places where it is more formal than 
Zaks or Fernandez/Ashley. And he 
uses very few illustrations. How- 
ever, the graphic layout of the mate- 
rial is very well done. In fact, you 
probably won't notice the dearth of 
illustrations because of the excellent 
use of type and layout to make the 
organization obvious. The combina- 
tion of graphic design and index 
make this a first class reference work 
for CP/M. 

This book is definitely the best 
book I've seen for someone using 
CP/M on a day-to-day basis. A be- 
ginner, however, might seriously 
consider starting with Zaks' book 
and then moving up to this one as he 
gains experience. 
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Video Wiggle 

The Cause and Cure 




Schematic of RAM Protection Circuit 



The RAM chips used on the Big 
Board (4116s) require three voltages 
for operation, +5V, +12Vand-5V. 

The +5V and +12V are used for 
device operation while the -5V pro- 
vides an internal protective bias to 
keep the +12V from breaking down 
the chip. Isolation between some re- 
gions is provided by reverse biased 
diode junctions and the -5V pro- 
vides the reverse bias. 

So, the device manufacturers 
strongly recommend that the -5V be 
available before the +12V. And they 
recommend that the -5V be available 
after the 12V goes away. 

Most personal computers (TRS-80 
etc.) have gotten around the prob- 
lem by providing a slightly longer 
time constant for the +12V on 
power-up and a shorter time con- 
stant on power-down. But if the -5V 
supply ever shuts down momentar- 
ily or doesn't come up for some rea- 
son then the owner gets to buy new 
RAM. The Big Board, on the other 
hand is at the mercy of the supply. 



The documentation recommends 
that you use a quality supply but 
there are many other reasons why 
-5V might not be available. 

The following circuit takes care of 
the problem and has already saved 
our group a couple of sets of 4116s. 
The parts are mounted on the un- 
derside of the board and only one 
run (the +12V) has to be cut. Noth- 
ing is critical. The NPN is just a 
small, plastic, half-watt transistor 
with a DC gain of about 100. The 
PNP is a larger tab-style package and 
has a DC gain of 10 or more. Since 
the PNP is either saturated or off, it 
doesn't dissipate enough to require 
heat-sinking. 

It is easy enough to check the 
whole thing out on the bench before 
installing it on the Big Board. When 
the -5V line drops down to about 
-3.5V the NPN should stop pulling 
current out of the base circuit of the 
PNP. As the PNP base rises, the PNP 
shuts off, removing the +12V from 
the RAM. ■ ■ ■ 



Quite a number of folks have noted 
on their subscription forms that they 
are bothered by wiggle on their 
video displays. 

Well, the wiggle is caused by a fre- 
quency difference between your 
power line and the vertical output in 
the video generator. The video gen- 
erator is 1 Hertz off (It's 61 Hz) and 
when it beats against power supply 
ripple in a Leedex monitor (for in- 
stance) you get wiggle. Many moni- 
tors also have trouble maintaining 
vertical sync because the frequency 
is outside their normal operating 
range. 

To completely cure the problem, 

change the frequency of the CRT 
display generator crystal. Jim Tan- 
ner now has new crystals available 
free for Big Board owners. See 
"Notes From Garland, Texas" for 
more information. 

A partial cure requires adding ad- 
ditional power supply filtering to the 
monitor. One additional 6000 ufd ca- 
pacitor on the 12V DC line makes 
quite an improvement. 

On the other hand, if your moni- 
tor accepts separate vertical, hor- 
izontal, and sync signals then you 
probably won't have any trouble. 
I've tried it both ways and my an- 
cient Tektronix monitor with its sep- 
arate inputs is as solid as a rock (it's 
also about that heavy). 
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Example Installation of RAM Protection Circuit 
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Disk Formatter Listing 



SECT ID 



ENDMRK 



TITLE 



SSSD DISKETTE FORMATTER' 



o 

3 



ra 



^5 ra S ^^ 






S rs ~ ~. 



THIS PROGRAM IS DESIGNED TO FORMAT A SINGLE DENSITY 
SINGLE SIDED SOFT SECTORED 8" DISKETTE INTO STANDARD 
128 BYTE SECTORS. IT IS DESIGNED TO RUN ON 
THE FERGUSON BIG BOARD Z-BO COMPUTER. IT TAKES 
ADVANTAGE OF THE WD- 1771 FLOPPY DISK CONTROLLER'S 
CAPABILITIES FOR SEMI-AUTOMATIC FORMATTING. 



WRITTEN: J. P. JONES 4/20/S1 
MODIFIED: J. P. J. 5/14/81 



ORG 



100H 



BOOT 


EOU 





MONITR 


EQU 


OFOOOH 


WDSTAT 


EQU 


10H 


WDCTL 


EQU 


WDSTAT 


WDATA 


EQU 


13H 


HOME 


EOU 


MONITR+1EH 


SEEK 


EQU 


M0NITR+21H 


SELECT 


EQU 


MONITR+1BH 



;STD CP/M COM PROGRAM 

;CP/M BOOT 

;WILL USE SOME OF PFM-80 

; 1771 STATUS ADDR 

; CONTROL = STATUS WRITE 

; 1771 DATA I/O 

;DISK HOME ROUTINE 

;SEEK TRACK ROUTINE 

; SELECT DRIVE ROUTINE 



FIRST, SET UP ONE TRACK'S DATA IMAGE 

; POINT TO DATA AREA OF DISK IMAGE 

;E5 = BLANK VALUE 

;FILL DATA AREA 
COPY ONE SECTOR 25 TIMES 



LD HL. DATA 
LD DE, DATA+1 
LD (HL), 0E5H 
LD BC, 127 
LDIR 



LD HL, SECT1 

LD DE, SECT2 

LD BC, 186*25 
LDIR 



START OF SECTOR 1 DATA 
ADD ONTO END 
186 BYTES PER SECTOR- 
FILL THAT MEMORY 



NOW SET UP SECTOR NUMBER IN PROPER POSITIONS 



LD HL, SECTNO 

LD DE, 186 

LD BC, 26*256+1 

LD (HL),C 
INC C 
ADD HL,DE 
DJNZ SECTID 



POINT TO SLOT IN FIRST IMAGE 
OFFSET TO NEXT SECTOR 
B=COUNTER, C=SECTOR # 

STORE SECTOR # 
INCREMENT SECTOR # 
POINT TO NEXT SECTOR DATA 
DO ALL 26 



NOW PUT TRAILER OF FF'S AFTER WHOLE TRACK 



LD HL, SECT1+4836 

LD A, -1 

LD B,0 

LD (HL), A 

INC HL 

DJNZ ENDMRK 



POINT AFTER DATA 

NEED 247 BYTES OF FF SO 

DO 256 BYTES FOR INSURANCE 



(continued next column) 
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SET UP TO FORMAT DISK IN DRIVE 'B' 

LD C, 1 ;B IS DRIVE #1 

CALL SELECT 

NOW DO SETUP FOR FORMATTING 



LD A, <66H) 
PUSH AF 
LD A, 0C9H 
LD (66H), A 

DO THE FORMAT 

DI 

LD C,0 
LD B, 26 
PUSH BC 



;GET BYTE AT NMI VECTOR 



;RET INSTRUCTION 
; STORE RETURN 



; CANNOT INTERRUPT 
; START WITH TRACK 
;26 SECTORS PER TRACK 
;NEED THEM LATER 



SEEK NEXT TRACK IN SEQUENCE 
CALL SEEK 



POP 
PUSH 



BC 
BC 



; TRACK # AND SECTOR CTR BACK 
;WILL NEED AGAIN 



PUT TRACK ID'S IN PROPER PLACE IN TRACK IMAGE 



LD HL, TRKNO 
LD DE, 1B6 
LD (HL), C 
ADD HL,DE 
DJNZ TRAKID 

DO THE TRACK WRITE 



LD HL, 
LD D, 
LD B, 
LD C, 
LD A, 



LEADER 
20 
36 

WDATA 
0F4H 



OUT (WDCTL), A 



POINT TO POSITION IN IMAGE 
OFFSET FOR EACH SECTOR 
STORE CURRENT TRACK NO. 
POINT TO NEXT SECTOR 



; POINT TO DATA 

;20 * 256 + 36 = TOTAL BYTES 

;C POINTS TO 1771 DATA PORT 
; WRITE TRACK COMMAND 
;SEND COMMAND 



cd 

«■ oo o 
r 1 On pr 
2 <^S3 
£. o M 

in C ~ 

sfir 
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(continued next page) 
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Disk Formatter Listing 



(continued) 



Q 

o 

n 

o 

c 

o 

o 

T3 



z 









NXTBYT HALT 




;WHEN 1771 READY, WILL NMI 


OUTI 




;SEND BYTE 


JP NZ 


NXTBYT 




DEC D 




; OUTER BYTE COUNTER 


JP NZ 


NXTBYT 




; DO SETUP FDR NEXT TRACK 




POP 


BC 


;GET TRACK COUNTER BACK 


INC C 




; UPDATE IT 


LD A,C 






CP 77 




; IF 77, DONE 


JP NZ 


NXTTRK 




POP AF 




;BET BYTE BACK FOR NMIVEC 


LD (66H 


, A 




EI 




;REENABLE NORMAL OPERATION 


JP 


BOOT 


;BACK TO CPM 


• TRACK DATA FOLLOWS 




LEADER DEFW 


-1 


;40 BYTES OF FF 


DEFW 


-1 




DEFW 


-1 




DEFW 


-1 




DEFW 


-1 




DEFW 


-1 




DEFW 


-1 




DEFW 


-1 




DEFW 


-1 




DEFW 


-1 




DEFW 


-1 




DEFW 


-1 




DEFW 


-1 




DEFW 


-1 




DEFW 


-1 




DEFW 


-1 




DEFW 


-1 




DEFW 


-1 




DEFW 


-1 




DEFW 


-1 




DEFW 





;6 BYTES OF 


DEFW 


. 




DEFW 







DEFB 


OFCH 


; WRITE INDEX MARK COMMAND 


DEFW 


-1 


;26 BYTES OF FF 


DEFW 


-1 




DEFW 


-1 




DEFW 


-1 




DEFW 


-1 




DEFW 


-1 




DEFW 


-1 




DEFW 


-1 




DEFW 


-1 




DEFW 


-1 




DEFW 


-1 




DEFW 


-1 




DEFW 


-1 





(continued next column) 



SECTl DEFW 





DEFW 





DEFW 





DEFB 


OFEH 


TRKNO DEFW 





SECTNO DEFW 





DEFB 


0F7H 


DEFB 


-1 


DEFW 


-1 


DEFW 


-1 


DEFW 


-1 


DEFW 


-1 


DEFW 


-1 


DEFW 





DEFW 





DEFW 





DEFB 


OFBH 


DATA DEFS 


128 


DEFB 


0F7H 


DEFB 


-1 


DEFW 


-1 


DEFW 


-1 


DEFW 


-1 


DEFW 


-1 


DEFW 


-1 


DEFW 


-1 


DEFW 


-1 


DEFW 


-1 


DEFW 


-1 


DEFW 


-1 


DEFW 


-1 


DEFW 


-1 


DEFW 


-1 



SECT2 



; SECTOR DATA STARTS 
;6 BYTES OF O 

; WRITE ID ADDRESS MARK CMD 
; FIRST BYTE OF WORD = TRACK # 
; FIRST BYTE OF WORD = SECTOR # 
; WRITE CRC COMMAND 

; 11 BYTES OF FF 



1 6 BYTES OF O 

! WRITE DATA ADDRESS CMD 
! ACTUAL DATA AREA 
! WRITE CRC COMMAND 
:27 BYTES OF FF 



;END OF ONE SECTOR 

ON EXECUTION THE PRECEDING SECTOR DATA WILL BE 
DUPLICATED 25 TIMES TO GIVE A FULL 26 SECTORS OF 
DATA. THE 256 BYTES FOLLOWING THE FULL TRACK'S 
DATA WILL BE FILLED WITH FF'S. THIS FILLS THE AREA 
BETWEEN THE LAST SECTOR AND THE NEXT INDEX. THE WD- 
1771 EXITS THE 'WRITE TRACK' MODE ON RECEIPT OF THE 
INDEX SIGNAL. 



END 



end 



New Character 
ROM 

Sometime after the first of this 
year, Jim Tanner began shipping 
the Big Board with a new charac- 
ter ROM. The ROM has true 
lower case characters rather 
than the smaller upper case/ 
larger upper case ROM shipped 
in the early boards. 

• The ROM uses a 5 by 8 dot ma- 
trix so it has one-dot descend- 
ers. 

• It contains the standard char- 
acter set for OO(hex) through 
ZF(hex). (Even though the Big 
Board only displays 20 — 7F.) 

• And I like it because I designed 
it and gave it to Jim. 

• However, It isn't perfect. 

So, for a week or so I worked 
on the g, y, t, f, and q characters 
until . . . well, if it isn't perfect 
now, I give up because I'm abso- 
lutely tickled. 

If your board has true upper/ 
lower case but you would like to 
have the absolute latest greatest, 
then send me a ROM and $5.00. 

If you have one of the old up- 
per case/smaller upper case 
ROMs you have a choice. Send a 
ROM to Jim Tanner at Digital 
Research Computers of Texas 
and he will burn a copy of my 
first character ROM (the one 
he's using in the new boards) for 
you, free. Or you can send me 
the ROM and $5.00 and get the 
deluxe version. 

Price 

• $5.00 if you send a 350ns 2716 
and a self-addressed, stamped 
package I can ship it back in. 

• Or instead of $5.00 you can 
submit something to the maga- 
zine, a program, a book or 
software review, a schematic 
and comments, a page or two 
about what you are doing with 
the Big Board, etc., along with 
your ROM and SASE and 
presto, you get fame AND a 
new character set, free! (And 
those who contributed to this 
issue also qualify for a free 
burn.) 

Make checks payable to Micro 
Cornucopia. If you don't agree 
that it's a $5.00 improvement, I'll 
send you the $5.00 back. 



PFM-80 Monitor 



By Don Retzlaf f 



The PFM-80 Monitor is the primary 
control program for your Big Board 
computer. It was burned into the 
EPROM that is installed in the first 
ROM socket (U67). 

PFM and CBIOS were written by 
Russell Smith, who is an exceptional 
young programmer who operates 
his own software house in Denton, 
Texas. He has helped me immeasur- 
ably in understanding PFM and im- 
plementing my programs on the Big 
Board. As time goes on I will pass 
along some of this expertise to you, 
through this column. 

If your curiosity is like mine you 
want to know what PFM stands for. I 
was informed that PFM is the abbre- 
viation of the profound literal de- 
scription of what the monitor is: 
"PRETTY F KIN' MAGIC." 

When the computer is turned on 
or the reset button is pressed, the Big 
Board automatically starts executing 
the COLD START BOOT program in 
the monitor ROM. The first five in- 
structions in the ROM (starting at lo- 
cation 0000H) copy the PFM monitor 
program from the ROM into upper 
memory starting at location F000H 
and continuing through F7E6H. The 
RAM locations starting at location 
FF00H through FFA8H are used as 
monitor data storage locations. 

After PFM has been booted into 
RAM the monitor starts executing 
and goes through the cold start inita- 
lization routine that does the follow- 
ing: 

1. Initalizes data storage pointers. 

2. Clears the scratch RAM with 
zeros. 

3. Fills CRT storage with blanks. 

4. Initalizes values in memory. 

5. Initalizes programmable I/O de- 
vices. 

6. Waits for input from keyboard or 
terminal. 

7. Sets baud rate for SIO input if in- 
put from there. 

8. Displays sign-on message on the 
apporpriate device. 

9. Displays monitor prompt * 

10. Waits for input. 

At this point PFM is up and operat- 
ing. 



6435 Northwood 
Dallas, Texas 75225 



I think that it is important to note 
that whenever an RS-232 serial ter- 
minal is connected to SIO PORT B, 
PFM automatically determines the 
BAUD rate of the terminal by ana- 
lyzing the input from the single car- 
riage return. It then sets up the baud 
rate generator to the correct frequen- 
cy- 

In future articles we will get deep- 
er into the monitor. 

Now let's discuss the monitor en- 
try point table. Starting at location 
F000H you will find a series of jump 
instructions. These provide a fixed 
address that can be used as entry 
points to the various monitor rou- 
tines. These will be useful in soft- 
ware routines that you write. This 
table will provide a constant jump 
location for these routines even if 
updates are made to the monitor. 
Thus, changes in addresses of the 
internal routines will not affect your 
software. 

I plan to cover the various features 
of PFM and CBIOS which work to- 
gether to control your Big Board. In 
succeeding articles I will lead you 
through the assembly language list- 
ings of both PFM and CBIOS, point- 
ing out the features of each and how 
you can make the most from each. 

In the next issue we will discuss 
the mechanics of modifying the 
monitor. 




Editor's Note: The first installment of the 
PFM monitor listing begins on the following 
page. We will continue the listing in the Sep- 
tember issue. 
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PFM Monitor Listing 



>FOOO 
>FFOO 
>3000 



>F000 



FOOO 
F003 
F006 
F009 
FOOC 
FOOF 
F012 
F015 
FOIS 
FOIB 
FOIE 
F021 
F024 
F027 



C32AF0 
C32BF1 
C331F4 
C339F4 
C320F5 
C320F5 
C3E8F4 
C3F0F4 
C3FEF4 
C3B1F6 
C3E9F6 
C3FBF6 
C32AF7 
C31FF7 



F02A 
F02B 
F02E 
F030 
F031 
F032 



F3 

2100FF 

3600 

F9 

2C 

20FA 



F034 7C 



0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
00 1 2 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
003 1 
0032 
0033 
0034 
0035 
0036 
0037 
0038 
0039 
0040 
004 1 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
005 1 
0052 
0053 
0054 
0055 
0056 
0057 
0058 



• ******************************************************** 
i* * 

;* BIGBOARD MONITOR ROM, NON-RELOCATABLE VERSION * 
;* Russell Smith 2-August-1980 * 

;* * 

; ******************************************************** 



PSECT ABS 

ROM EQU OFOOOH 

RAM EQU OFFOOH 

CRTMEM EQU 3000H 



; START OF 2K ROM 

; START OF 256 BYTE RAM 

;BASE OF 4K CRT MEMORY 



ORG ROM 

INCLUDE INIT.ASM 
• ******************************************************** 

;* * 

;* COLD START INITIALIZATION ROUTINE FOR * 

;* CONFIGURING THE SYSTEM AFTER A POWER-ON * 

;* OR PUSHBUTTON RESET. * 

; * lB-0ct-80 * 

; * * 



. — MONITOR ENTRY POINT TABLE — 



COLD: JP 

WARM: JP 

CONST: JP 

CON IN: JP 

CONOUT: JP 

JP 

JP 

JP 

JP 

JP 

JP 

JP 

JP 

JP 



INIT 

PROMPT 

KBDST 

KBDIN 

CRTOUT 

CRTOUT 

SIOST 

SIOIN 

SIOOUT 

SELECT 

HOME 

SEEK 

READ 

WRITE 



MONITOR COLD ENTRY POINT 
MONITOR WARM ENTRY POINT 
CONSOLE STATUS VECTOR 
CONSOLE INPUT VECTOR 
CONSOLE OUTPUT VECTOR 
CRT OUTPUT VECTOR 
SIO CHANEL B STATUS VECTOR 
SIO CHANEL B INPUT VECTOR 
SIO CHANEL B OUTPUT VECTOR 
DISK DRIVE SELECT 
HOME R/W HEAD 
SEEK TO TRACK 
READ SECTOR 
; WRITE SECTOR 



DO A SHORT POST-RESET TIME DELAY. ALSO INITIALIZES THE 
STACK POINTER AND FILLS THE MONITOR SCRATCH RAM WITH ZEROS 



INIT: 



INIT1: 



DI 

LD 

LD 

LD 

INC 

JR 



; POINT TO START OF MONITOR RAM 
;FILL 256 BYTE SPACE WITH ZEROS 
SOMETHING USEFUL TO ADD DELAY 



HL,RAM 
(HL) ,0 
SP,HL 
L 
NZ,INIT1-* ;LOOP TAKES 4 MILLISECONDS 



; INITIALIZE THE Z-BO FOR INTERRUPT MODE #2 
LD A,H 



F08A 
F08D 
FOBE 
FOBF 
F091 
F092 
F094 
F097 
F099 
F09B 
F09D 
F09F 
F0A2 



F0A5 
F0A6 
F0A9 
FOAB 



F0C5 
F0C7 
F0C8 



21CAF0 

2"^ 

17 

30FC 

7E 

D30C 

CDF0F4 

3E01 

D307 

3E1C 

D307 

21FEF4 

220DF0 



FB 

CDECF3 

ODOA 

2E2E2E20 

73797374 

656D206D 

6F6E6974 

6F722033 

2E33202E 

2E2E 

ODOA 

04 

C303F0 



F0D3 
F0D4 
F0D6 

F0D8 
F0D9 
FODB 

FODD 
FODE 
FOEO 
F0E2 



1 22 

0123 BAUD3: 
0124 

0125 
0126 
0127 
012B 
0129 
1 30 
0131 
0132 
0133 
0134 



FOCB 


05 


FOCC 


06 


FOCD 


07 


FOCE 


OA 


FOCF 


OC 


FODO 


OE 


F0D1 


OF 


F0D2 


OF 



>F0D3 



02 

1AFF 

8CF4 

02 

16FF 

9FF4 

04 

04FF 
AFF4 
CFF4 



LD 

INC 

RLA 

JR 

LD 

OUT 

CALL 

LD 

OUT 

LD 

OUT 

LD 

LD 



HL,RATES-1 
HL 

NC,BAUD3-* 
A, (HL) 
(BAUDB) ,A 
SIOIN 
A, 1 

<SIOCPB) ,A 
A,00011100B 
<SIOCPB) ,A 
HL, SIOOUT 
(CONOUT+1) , 



; INDEX INTO BAUD RATE TABLE 
; USING COUNT DERRIVED IN A 

;GET BAUD RATE CONTROL BYTE FROM 
;TBL S< OUTPUT TO C0M-B116 TIMER 
; DISCARD 1ST SERIAL INPUT CHAR 

; RE-PROGRAM SIO B TO GENERATE 
INTERRUPTS ON RECEIVED DATA, 
; PARITY DOES NOT AFFECT VECTOR 

HL ; RE-DIRECT CONSOLE OUTPUT 
TO SIO 



PRINT SIGNON MESSAGE 



0135 
0136 
0137 

0138 SIGNON: EI 

0139 CALL 

0140 DEFB 

0141 DEFM 



PNEXT 
CR,LF 



system monitor 



F0E4 08 



0142 
0143 
0144 
0145 
0146 
0147 
0148 
0149 
1 50 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0158 
0159 
1 60 
0161 
0162 
0163 
0164 
0165 
0166 
0167 
0168 
0169 
0170 
0171 
0172 
0173 
0174 
0175 
0176 

0177 
0178 
0179 
0180 



DEFB CR.LF 
DEFB EOT 
JP WARM 



;G0 ENTER MONITOR 



BAUD RATE CONSTANTS FOR COM 8116 BAUD RATE GENERATOR 



RATES: 



DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 



INTAB EQU 



1 1 B 
0110B 
0U1B 
101 OB 
1 1 OOB 
1110B 
HUB 
HUB 



300 


BAUD 


600 


BAUD 


1200 


BAUD 


2400 


BAUD 


4 BOO 


BAUD 


9600 


BAUD 


19200 


BAUD 


19200 


BAUD 



INITIALIZATION DATA TABLES 



INITIALIZE THE Z-BO 'I' REGISTER INTERRUPT VECTOR TABLE 



; PARALLEL KBD INTERRUPT VECTOR 



DEFB 


2 


DEFW 


SYSVEC+2 


DEFW 


KEYSRV 


DEFB 


r> 


DEFW 


CTCVEC+6 


DEFW 


TIMER 


DEFB 


4 


DEFW 


SIOVEC+4 


DEFW 


SIOINT 


DEFW 


SIOERR 



; 1 SEC TIMER INTERRUPT VECTOR 



;SIO RECEIVE INTERRUPT VECTOR 
;SIO PARITY, OVERRUN & FRAMING 
ERROR 



; INITIALIZE DISK I/O DRIVER VARIABLES 
DEFB 8 



F035 ED47 
F037 ED5E 
F039 CDECF5 



F03C 
F03F 
F041 
F042 
F043 
F044 
F045 
F046 
F047 
F049 
F04B 



21D3F0 

0600 

4E 

23 

5E 



EDBO 
CB7E 
2BF2 



F04D 


23 


F04E 


46 


F04F 


23 


F050 


4E 


F051 


n-^ 


F052 


EDB3 


F054 


CB7E 


F056 


2BF6 



F05S 


ED7B 


F05A 


FE06 


F05C 


2012 


FOSE 


DB1E 


F060 


0610 


F062 


ED41 


F064 


ED7B 


F066 


CB67 


F06B 


200E 


F06A 


DB1C 


F06C 


CB5F 


F06E 


20F2 


F070 


DB1E 


F072 


3EB3 


F074 


D31F 


F076 


1B2D 



F078 


AF 


F079 


ED41 


F07B 


ED50 


F07D 


CB62 


F07F 


2BF8 


F0B1 


3C 


F0B2 


ED41 


F0B4 


ED50 


F0B6 


CB62 


FOBS 


20F7 



0059 

0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
006B 
0069 
0070 
0071 
0072 
0073 
0074 
0075 
0076 
0077 
007B 
0079 
0090 
00B1 
00B2 
00B3 
00B4 

00 B 5 
00B6 
O0B7 
003B 
00B9 
0090 
009 1 
0092 
0093 
0094 
0095 
0096 
0097 
009B 
0099 
0100 
0101 
0102 

1 03 

1 04 

1 05 

1 06 
0107 

01 OB 
1 09 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
01 IB 
0119 
1 20 
0121 



;LOAD I RES WITH MSB OF VECTOR 

TABLE 
;AND SELECT INTERRUPT MODE 2 



LD I, A 

IM 2 

CALL CLRSCN ;FILL THE CRT MEMORY WTH BLANKS 

; STORE ANY NON-ZERO VALUES FOR VARIABLES IN MEMORY 
5 

; POINT TO DEFAULT VAR TABLE 

;BC=DATA BLOCK BYTECOUNT 

;DE=DESTINATION FOR DATA 



INIT2: 



LD 


HL, INTAB 


LD 


B,0 


LD 


C, (HL) 


INC 


HL 


LD 


E, (HL) 


INC 


HL 


LD 


D, (HL) 


INC 


HL 


LDIR 




BIT 


7, (HL) 


JR 


Z, INIT2- 



;COPY DATA S> HL TO VAR S> DE 
Z,INIT2-* ;LOOP AGAIN IF NOT END OF TABLE 



INITIALIZE THE PROGRAMMABLE I/O DEVICES 



INIT3: 



INC 


HL 


LD 


B, (HL) 


INC 


HL 


LD 


C, (HL) 


INC 


HL 


OTIR 




BIT 


7, (HL) 


JR 


Z, INIT 



;POINT TO I/O INIT DATA TABLE 
;B=INIT LOOP BYTECOUNT 



;C=DEVICE CONTROL PORT# 

;SEND DATA HL TO PORT 3 C 
;TEST FOR TABLE END MARKER 
Z,INIT3-* ;LOOP AGAIN IF NOT AT END 

; DETERMINE IF CONSOLE I/O CONFIGURATION WILL BE FOR THE 
;ON-BOARD CRT AND KEYBOARD OR AN EXTERNAL SERIAL TERMINAL. 

IN A, (C) ;TEST SIO READ REG 2 TO CHECK 

CP 0000011 OB ;IF THE SIO IS INSTALLED 

JR NZ,PARALL-*;SKIP CONFIG TEST IF NO SIO 

IN A, (KBDDAT) ; MAKE SURE KBD PIO 'READY'RESET 

LD B,00010000B;B=RESET SIO EXT STATUS COMMAND 

DECIDE: OUT (C),B ; TEST FOR ARRIVAL OF A SERIAL 

IN A, (C) ; INPUT CHAR START BIT 

BIT 4, A 

JR NZ,BAUD-* ;EXIT LOOP IF START BIT DETECTED 

IN A, (BITDAT) 

BIT 3, A ;TEST FOR DATA RDY STROBE FROM 

JR NZ, DECIDE-*; PARALLEL KBD, LOOP IF INACTIVE 

PARALL: IN A, (KBDDAT) ; DISCARD FIRST KEYBOARD CHAR 

LD A, 1000001 IB 

OUT (KBDCTL), A ; ENABLE INTERRUPTS FROM KBD PIO 

JR SIGNON-* ;SIGNON WTH BUILT-IN CONSOLE I/O 



; AUTOMATIC BAUD RATE SETTING ROUTINE FOR SIO 



BAUD: 
BAUD1: 



BAUD2: 



XOR A 

OUT (C),B 

IN D, (C) 

BIT 4,D 

JR Z,BAUD1-* 

INC A 

OUT (C),B 

IN D, (C) 

BIT 4,D 

JR NZ,BAUD2-» ; REPEAT UNTIL BIT CHANGES AGAIN 



;READ SIO STATUS REGISTER 
;TEST THE SYNC/HUNT BIT 
;LOOP UNTIL IT CHANGES STATE 

; RESET REGISTER #0 FLAGS AGAIN 
;S<LOOP TIMING THE SYNC/HUNT BIT 
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F0E5 


65FF 


0181 


FOE 7 


FF 


01 82 


FOEB 


FFFFFFFF 


0183 


FOEC 


00 


0184 


FOED 


BO 


0185 


FOEE 


IE 


0186 
0187 
0188 
0189 


FOEF 


02 


1 90 


FOFO 


75FF 


0191 


F0F2 


20 


0192 


F0F3 


5F 


0193 
0194 
0195 
0196 


F0F4 


06 


0197 


F0F5 


57FF 


0198 


F0F7 


B0F4 


0199 


F0F9 


44F4 


0200 



FOFB 44F4 



DEFW 


UNIT 


DEFB 


255 


DEFB 


255, 


DEFB 


0000 


DEFB 


12B 


DEFB 


30 



;FLAG ALL DRIVES AS DE-SELECTED 
255,255,255 ; CLEAR HEAD POSITION TABLE 
)000B ; SELECT FASTEST SEEK SPEED 

; SELECT 128 BYTE SECTOR LENGTH 
;SET MOTOR TURN-OFF TIMER 



INITIALIZE THE CRT DISPLAY CURSOR 



DEFB 
DEFW 
DEFB 
DEFB 



020 1 



CHRSAV 

;USE NON-BLINKING UNDERSCORE 
iSET DEFAULT 'SOFTWARE' INTERRUPT VECTORS 



; POINT' TIKVEC TO DISK MTR TIMER 
; POINT' PINVEC TO FIFO INPUT 

ROUTINE 
;POINT'SINVEC'TO FIFO INPUT 

ROUTINE 



DEFB 


6 


DEFW 


TIKVEC 


DEFW 


DSKTMR 


DEFW 


STASH 



DEFW 



STASH 







0202 


; 










0203 


;SET FREE MEMORY POINTER 






0204 


; 






FOFD 


02 


0205 




DEFB 


7> 


FOFE 


7AFF 


0206 




DEFW 


FREPTR 


F100 


E6F7 


0207 
0208 
0209 


; 


DEFW 


ROMEND 


F102 


FF 


0210 
0211 
0212 
0213 


! 


DEFB 


-1 


>0000 




0214 


BAUDA 


EOU 


OOH 


>0004 




0215 


SIO 


EQU 


04H 


>000B 




0216 


GENPIO 


ECU 


OBH 


>000C 




0217 


BAUDB 


EOU 


OCH 


>0010 




0218 


WD1771 


EOU 


10H 


>0014 




0219 


SCROLL 


EOU 


14H 


>0018 




0220 


CTC 


EQU 


18H 


>001C 




0221 
0222 


SYSPIO 


EOU 


1CH 






0223 


; INITIALIZE SYSTEM PIO FOF 






0224 


;DISK DRIVE SELECT AND PAF 






0225 


; 






>001C 




0226 


BITDAT 


EQU 


SYSPIO+0 


>001D 




0227 


BITCTL 


EQU 


SYSPIO+1 


>001E 




0228 


KBDDAT 


EQU 


SYSPIO+2 


>001F 




0229 
0230 


KBDCTL 


EQU 


SYSPIO+3 


F103 


03 ID 


0231 




DEFB 


3, BITCTL 


F105 


CF 


0232 




DEFB 


11001 11 IB 


F106 


18 


0233 




DEFB 


0001 1000B 


F107 


40 


0234 
0235 


. 


DEFB 


01000000B 


F10B 


one 


0236 




DEFB 


1, BITDAT 


F10A 


00 


0237 
0238 


. 


DEFB 


OOOOOOOOB 


F10B 


02 IF 


0239 




DEFB 


2, KBDCTL 


F10D 


4F 


0240 




DEFB 


01001 11 IB 


F10E 


1A 


0241 
0242 
0243 


; 


DEFB 


SYSVEC+2 



; POINT TO 1ST LOC AFTER MONITOR 



iEND OF VARIABLE INIT TABLE 



CHANEL A BAUD RATE GENETATOR 
DUAL SERIAL I/O 
GENERAL PURPOSE PARALLEL I/O 
CHANEL B BAUD RATE GENERATOR 
WEST DIGITAL DISK CONTROLLER 
CRT SCROLL MEM SCROLL REGISTER 
QUAD COUNTER/TIMER CIRCUIT 
; SYSTEM PARALLEL I/O 



;PUT SYSTEM PIO IN BIT MODE 
;MAKE BITS 4 AND 3 BE INPUTS 
■DISABLE INTERRUPTS 



; DE-SELECT ROMS, ENABLE DRIVE O 



;PUT KBD PORT IN INPUT MODE 
;LOAD KEYBOARD INTERRUPT VECTOR 



(continued next page) 
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>00 1 B 
>0019 
>001A 
>00 1 B 

F10F 0118 
Fill 10 

F112 021A 
F114 27 

F115 69 

F116 021B 
F11S C7 
F119 5D 



>0004 
>0005 
>0006 
>0007 



F11A 
F11C 

F11D 
F11F 
F120 
F121 
F122 

F123 
F124 
F125 
F126 
F127 
F128 
F129 



010C 
05 

0B07 

04 

45 

01 

04 



03 
41 
05 
AA 
02 
00 
02 



F12A FF 



0244 
0245 
0246 
0247 
024B 
0249 
0250 
0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 
0259 
0260 
0261 
0262 
0263 
0264 
0265 
0266 
0267 
0268 
0269 
0270 
0271 
0272 
0273 
0274 
0275 
0276 
0277 
0278 
0279 

0280 
02 Bl 
0282 
0283 
0284 
0285 
0286 
0287 
028B 
02B9 
0290 
0291 
0292 
0293 
0294 
0295 
0296 
0297 
0298 
0299 
0300 
0301 
0302 
0303 



INITIALIZE CHANELS 2 AND 3 OF THE CTC 

;T0 GENERATE ONE SECOND INTERRUPTS FROM CTC: 



CTCO 
CTC1 
CTC2 
CTC3 



EQU 
EQU 
EQU 
EOU 

DEFB 
DEFB 

DEFB 
DEFB 
DEFB 

DEFB 
DEFB 
DEFB 



CTC+O 
CTC+1 
CTC+2 
CTC+3 

1 , CTCO 
CTCVEC 



iCTC CHANEL PORT* 
;CTC CHANEL 1 
;CTC CHANEL 2 
;CTC CHANEL 3 



;BASE INTERRUPT VECTOR FOR CTC 



2.CTC2 

0010011 IB ;PUT CTC2 IN TIMER MODE 

105 ;CTC2 PERI0D=105*256*400 NS 



2,CTC3 
1100011 IB 
93 



;PUT CTC3 IN COUNTER MODE 
;CTC3 PERI0D=999936 uS 



INITIALIZE SIO CHANEL B FOR ASYNCHRONOUS SERIAL 
INTERFACE TO PRINTER OR TERMINAL 



SIODPA EQU 

SIODPB EQU 

SIOCPA EQU 

SIOCPB EQU 

DEFB 
DEFB 

DEFB 
DEFB 
DEFB 
DEFB 
DEFB 

DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 

DEFB 

INIT DONE 



SI 0+0 
SIO+1 
SIO+2 
SIQ+3 

1 , BAUDS 
0101B 

11, SIOCPB 

4 

1 000 1 1 B 

1 

00000 100B 



O 1 00000 1 B 

5 

10101 01 OB 

SIOVEC 



;SIO DATA PORT A 

;SIO DATA PORT B 

;SIO CONTROL/STATUS PORT A 

;SIO CONTROL/STATUS PORT B 



;SET COM 8116 TO 300 BD DEFAULT 



; SELECT REGISTER #4 

;16X CLK.l STOP BIT, ODD PARITY 

; SELECT REGISTER #1 

; STATUS AFFECTS VECTOR, 

NO INTERRUPTS 
; SELECT REGISTER #3 
;7 BITS/RX CHAR 
; SELECT REGISTER #5 
;7 BITS/TX CHAR, ASSERT DTR 
; SELECT REGISTER #2 
;LOAD INTERRUPT VECTOR BASE 
; SELECT READ REG#2 FOR SIO TEST 



;END-OF-TABLE 



INCLUDE MONITOR. ASM 

* BASIC HEX MONITOR FOR Z-BO PROCESSORS * 

* 3-Aug-BO * 

* * 



F19F 


20F3 


0366 




DEFW 


OUTCMD ; WRITE TO OUTPUT PORT 


F1A1 


BDF1 


0367 
0368 




DEFW 


DSKCMD ; DISPLAY DISK SECTOR DATA 


>0021 




0369 CMDSIZ 


EQU 


*-CMDTAB 






0370 












0371 












0372 


^^^«^^*^«^^^^^^^^««^^^^^^«^^3iC3^^^«^^^^^«3tC«3)C^^3|C*^^^3«t«3k3(C3*C3«r3tC 






0373 


* 




* 






0374 


* 


MONITOR 


COMMAND ACTION ROUTINES PACKAGE * 






0375 


* 




* 






0376 


^*^«***»««^^]|C«^*«*^^^^«*^^^«^«^^^^^^^^]|C^«««>|C«*^«^«>tr«^«^^ 






0377 












0378 












0379 












03B0 












03B1 












03B2 


— DISK BOOT LOADER COMMAND — 






03B3 








F1A3 


OEOO 


0384 BOOT: 


LD 


CO ; SELECT DRIVE FOR BOOT LOAD 


F1A5 


CDB1F6 


0385 




CALL 


SELECT 


F1AB 


203D 


0386 




JR 


NZ, DSKERR-* 


F1AA 


CDE9F6 


0387 




CALL 


HOME ;HOME HEAD TO TRACK 


F1AD 


2038 


03BB 




JR 


NZ, DSKERR-*; ERROR IF NOT READY OR AT TRO 


F1AF 


21B0OO 


03B9 




LD 


HL,0080H ; POINT TO CP/M READ BUFFER 


F1B2 


0E01 


0390 




LD 


C, 1 ; SELECT SECTOR 1 


F1B4 


CD2AF7 


0391 




CALL 


READ ;READ TRACK 0/ SECTOR 1 


F1B7 


202E 


0392 




JR 


NZ, DSKERR-* 


F1B9 


Fl 


0393 




POP 


AF ; CLEAN UP STACK 


F1BA 


C3B000 


0394 
0395 
0396 




JP 


0080H ;G0 EXECUTE LOADER 






0397 


— DISK SECTOR 


READ COMMAND — 






039B 








F1BD 


FE03 


0399 DSKCMD: 


CP 


3 ; CHECK PARAMETER COUNT 


F1BF 


37 


0400 




SCF 




F1C0 


CO 


0401 




RET 


NZ 


F1C1 


4D 


0402 




LD 


C,L ;USE FIRST ARG AS UNIT# 


F1C2 


CDB1F6 


0403 




CALL 


SELECT 


F1C5 


2020 


0404 




JR 


NZ , DSKERR-* 


F1C7 


217EFF 


0405 




LD 


HL,PARAM2 


F1CA 


4E 


0406 




LD 


C, (HL) ;USE SECOND ARG AS TRACK# 


F1CB 


CDFBF6 


0407 




CALL 


SEEK 


F1CE 


2017 


040B 




JR 


NZ, DSKERR-* 


FIDO 


2 1 80FF 


0409 




LD 


HL,PARAM3 


F1D3 


4E 


0410 




LD 


C, (HL) ;USE THIRD ARG AS SECTORtt 


F1D4 


218000 


0411 




LD 


HL,OOBOH 


F1D7 


CD2AF7 


0412 




CALL 


READ 


F1DA 


CBC7 


0413 




SET 


0,A ;MARK ERROR BYTE AS DUE TO READ 


F1DC 


2009 


0414 




JR 


NZ, DSKERR-* 


FIDE 


2 1 8000 


0415 




LD 


HL,0080H 


F1E1 


1 10B00 


0416 




LD 


DE,8 


F1E4 


C327F2 


0417 
04 IB 
0419 




JP 


DUMP ;DUMP DISK READ BUFFER S< RETURN 


F1E7 


4F 


0420 DSKERR: 


LD 


C,A ;SAVE 1771 STATUS 


F1EB 


CDECF3 


0421 




CALL 


PNEXT 


F1EB 


6469736B 
20657272 
6F7220 


0422 




DEFM 


? disk error ' 


F1F6 


04 


0423 




DEFB 


EOT 


F1F7 


0608 


0424 




LD 


B,8 ; PRINT 1771 ERROR BYTE IN BIN 


F1F9 


AF 


0425 DSKR2: 


XOR 


A 


FIFA 


CB11 


0426 




RL 


C 


F1FC 


CE30 


0427 




ADC 


A,'0' ; TRANSFORM A INTO ASCI I ' 1 7 OR' 0' 


FIFE 


CD15F4 


0428 




CALL 


OUTPUT 


F201 


10F6 


0429 




DJNZ 


DSKR2-* ; REPEAT FOR 8 BITS 


F203 


B7 


0430 




OR 


A 


F204 


C9 


0431 




RET 





F12B 
F12E 
F130 
F132 
F133 
F136 
F138 
F13B 

F13D 
F13E 
F141 
F144 
F147 
F149 
F14B 
F14E 
F151 
F154 
F156 
F157 
F15B 
F15E 
F160 
F162 
F165 
F169 
F16D 
F170 

F172 
F175 

F17C 
F17D 
F17E 



CDECF3 

ODOA 

2A20 

04 

2188FF 

0E20 

CD3BF3 

3835 

AF 

3284FF 

CBFCF3 

3A88FF 

FEOD 

28E0 

2182F1 

010B00 

CD60F3 

20 1C 

C5 

FB21B9FF 

CD6AF3 

DDE1 

3810 

2A7CFF 

ED5B7EFF 

ED4BB0FF 

CDB0F1 

30B9 

CDECF3 

20776861 

74203F 

07 

04 

1BAB 



F1B0 DDE9 



F182 


52 


F183 


4F 


F1B4 


49 


F185 


47 


F186 


54 


F1B7 


46 


F1BB 


4D 


F1B9 


43 


F18A 


42 


F1BB 


44 


F1BC 


53 


F18D 


29F3 


F1BF 


05F2 


F191 


A3F1 


F193 


E6F2 


F195 


57F2 


F197 


DBF2 


F199 


8CF2 


F19B 


81F2 


F19D 


FEF2 


^1 

W I Micro C 



0304 PROMPT! 

0305 

0306 

0307 

030B 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 

0317 

0318 

03 1 9 

0320 

0321 

0322 

0323 

0324 

0325 

0326 

0327 

032B 

0329 

0330 

0331 

0332 

0334 WHAT: 
0335 

0336 
0337 
0338 

0339 ; 

0340 ; 

0341 CALLX: 

0342 ; 

0343 ; 

0344 ; 
0345 
0346 
0347 
0348 
0349 
0350 
0351 
0352 
0353 
0354 
0355 
0356 
0357 
0358 
0359 
0360 
0361 
0362 
0363 
0364 
0365 



CMDTAB: 



CALL 

DEFB 

DEFM 

DEFB 

LD 

LD 

CALL 

JR 

XOR 

LD 

CALL 

LD 

CP 

JR 

LD 

LD 

CALL 

JR 

PUSH 

LD 

CALL 

POP 

JR 

LD 

LD 

LD 

CALL 

JR 

CALL 
DEFM 

DEFB 
DEFB 
JR 



JP 



DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 
DEFB 

DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 
DEFW 



PNEXT 

CR.LF 

'* ' 

EOT 

HL,LINBUF 

C,32 

GETLIN 

C,WHAT-* 



; INPUT A BUFERED CONSOLE LINE 
; PRINT 'WHAT ?' IF INPUT ERROR 



(ESCFLG) , A 
CRLFS 

A, (LINBUF) ; 
CR 

2, PROMPT-* ; 
HL, CMDTAB ; 
BC,CMDSIZ/3 
SEARCH 
NZ,WHAT-* ; 
BC 

IY,LINBUF+1 
PARAMS ; 
IX ; 

C,WHAT-* 
HL, (PARAM1) 
DE, (PARAM2) 
BC, (PARAMS) 
CALLX ; 
NC, PROMPT-*; 

PNEXT 

' what ?' 



GET FIRST CHAR IN LINE 

JUMP IF A NULL LINE 
SEARCH FOR A MATCHING CHAR 

; IN COMMAND SEARCH TABLE 

TRY AGAIN IF SEACRH FAILS 



INPUT NUMERIC PARAMETERS FROM 
LINE BUFFER AND TEST IF ERROR 



CALL SUBROUTINE S> IX 

GO BACK TO PROMPT IF NO ERRORS 



'G'-64 

EOT 

PROMPT-* 



'R' 
'0' 
' I' 
'G' 
'T' 
'F' 
'M' 
'C 
'B' 
'D' 
'S' 

SWITCH 

MEMDMP 

BOOT 

BLOCK 

VIEW 

FILL 

TEST 

GOTO 

INCMD 



;SAY 'what ?' AND BEEP THE BELL 



;CALL SUBROUTINE S> IX 
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; SWITCH CONSOLE OUTPUT VECTOR 

;DUMP MEMORY IN HEX/ASCII 

;BOOT UP CP/M 

; MEMORY BLOCK MOVE 

; MEMORY EXAMINE/CHANGE 

;FILL MEMORY 

;RAM DIAGNOSTIC 

;JUMP TO MEMORY LOCATION 

;READ FROM INPUT PORT 



(continued on top of page 12) 







0432 


; 










0433 












0434 












0435 


; — MEMORY DUMP 


COMMAND - 






0436 








F205 


3D 


0437 


MEMDMP: 


DEC 


A 


F206 


2806 


0438 




JR 


Z,MDMP2-* 


F20B 


3D 


0439 




DEC 


A 


F209 


2808 


0440 




JR 


Z,MDMP3-t 


F20B 


2A86FF 


0441 


MDMP1: 


LD 


HL, (LAST) 


F20E 


111 000 


0442 


MDMP2: 


LD 


DE, 16 


F211 


180D 


0443 
0444 




JR 


MDMP3B-* 


F213 


EB 


0445 


MDMP3: 


EX 


DE,HL 


F214 


ED52 


0446 




SBC 


HL,DE 


F216 


0604 


0447 




LD 


B,4 


F21B 


CB3C 


0448 


MDMP3A: 


SRL 


H 


F21A 


CB1D 


0449 




RR 


L 


F21C 


10FA 


0450 




DJNZ 


MDMP3A-* 


F21E 


23 


0451 




INC 


HL 


F21F 


EB 


0452 




EX 


DE,HL 


F220 


CD27F2 


0453 


MDMP3B: 


CALL 


DUMP 


F223 


22B6FF 


0454 




LD 


(LAST) ,HL 


F226 


C9 


0455 
0456 
0457 


| 


RET 




F227 


E5 


0458 


DUMP: 


PUSH 


HL 


F22B 


CDCDF3 


0459 




CALL 


PUT4HS 


F22B 


CD02F4 


0460 




CALL 


SPACE 


F22E 


06 1 


0461 




LD 


B, 16 


F230 


7E 


0462 


DUMP2: 


LD 


A, (HL) 


F231 


23 


0463 




INC 


HL 


F232 


CDD2F3 


0464 




CALL 


PUT2HS 


F235 


10F9 


0465 




DJNZ 


DUMP2-* 


F237 


El 


0466 




POP 


HL 


F23B 


06 1 


0467 




LD 


B, 16 


F23A 


7E 


0468 


DUMP3: 


LD 


A, (HL) 


F23B 


23 


0469 




INC 


HL 


F23C 


CBBF 


0470 




RES 


7, A 


F23E 


FE20 


0471 




CP 


20H 


F240 


3804 


0472 




JR 


C,DUMP4-* 


F242 


FE7F 


0473 




CP 


7FH 


F244 


3802 


0474 




JR 


C,DUMP5-* 


F246 


3E2E 


0475 


DUMP4: 


LD 


A, ' . ' 


F248 


CD15F4 


0476 


DUMPS: 


CALL 


OUTPUT 


F24B 


10ED 


0477 




DJNZ 


DUMP3-* 


F24D 


CDFCF3 


0478 




CALL 


CRLFS 


F250 


CO 


0479 




RET 


NZ 


F251 


IB 


0480 




DEC 


DE 


F252 


7A 


0481 




LD 


A,D 


F253 


B3 


0482 




OR 


E 


F254 


20D1 


0483 




JR 


NZ,DUMP-* 


F256 


C9 


0484 
0485 
0486 
04B7 
0488 


5 


RET 








0489 


; — MEMORY EXAMINE COMMAN 






0490 


; 






F257 


CDCEF2 


0491 


VIEW: 


CALL 


MDATA 


F25A 


CD07F4 


0492 




CALL 


ECHO 


F25D 


FEOD 


0493 




CP 


CR 


F25F 


281B 


0494 




JR 


Z,VIEW4-» 


F261 


FE2D 


0495 




CP 


'-' 


F263 


2819 


0496 




JR 


Z,VIEW5-* 


F265 


CDBDF3 


0497 


VIEW2: 


CALL 


ASCHEX 



; CHECK PARAMETER COUNT 



[DEPRIVE BYTECNT FOR DUMP RANGE 
i DIVIDE BYTECOUNT BY 16 



iDUMP DE*16 BYTES STRTING AT HL 



iSAVE STARTING ADDRESS 

i PRINT STARTING ADDRESS IN HEX 



;GET A DATA BYTE S> HL 

; PRINT THE DATA IN HEX 

; REPEAT 16 TIMES 

; RESTORE STARTING ADDRESS 

;GET BACK DATA BYTE S> HL 



; PRINT DOT IF DATA < 20 OR > 7F 
; PRINT ASCII CHARACTER IN A 



I EXIT IF ESCAPE REQ INDICATED 



(continued next page) 
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3F 


0498 




CCF 






DO 


0499 




RET 


NC 




07 


0500 




RLCA 






07 


0501 




RLCA 






07 


0502 




RLCA 






07 


0503 




RLCA 






4F 


0504 




LD 


C,A 




CD07F4 


0505 




CALL 


ECHO 




CDBDF3 


0506 




CALL 


ASCHEX 




3F 


0507 




CCF 






DO 


050B 




RET 


NC 




Bl 


0509 




OR 


C 




77 


0510 


VIEW3: 


LD 


(HL),A 




CDB9F2 


0511 




CALL 


CHECK 




23 


0512 


VIEW4: 


INC 


HL 




23 


0513 




INC 


HL 




2B 


0514 


VIEWS: 


DEC 


HL 




1BD6 


0515 
0516 
0517 
051B 


\ 


JR 


VIEW-* 






0519 


■ — JUMP TO MEMORY LOCATION 


COMMAND — 




0520 










3D 


0521 


GOTO: 


DEC 


A 


; CHECK PARAMETER COUNT 


37 


0522 




SCF 






CO 


0523 




RET 


NZ 




E5 


0524 




PUSH 


HL 




DDEi 


0525 




POP 


IX 




CDB0F1 


0526 




CALL 


CALLX 


;CALL ADDRESS PASSED IN HL 


B7 


0527 




OR 


A 




C9 


052B 
0529 
0530 
0531 


5 


RET 




; RETURN IF WE GET BACK AGAIN 




0532 
0533 
0534 


; — MEMORY READ/WRITE DIAGNOSTIC COMMAND — 


FE02 


TEST: 


CP 


2 


; CHECK PARAMETER COUNT 


37 


0535 




SCF 






CO 


0536 




RET 


NZ 




13 


0537 




INC 


DE 




5A 


0538 




LD 


E,D 


;GET ENDING PAGE ADDRESS INTO 


54 


0539 




LD 


D,H 


;GET STARTING PAGE ADDR INTO D 


0600 


0540 




LD 


B,0 


INITIALIZE PASS COUNTER 


62 


0541 


TEST1: 


LD 


H,D 


; POINT HL'TO START OF BLOCK 


2E00 


0542 




LD 


L,0 




7D 


0543 


TEST2: 


LD 


A,L 




AC 


0544 




XOR 


H 


; GENERATE TEST BYTE 


AS 


0545 




XOR 


B 




77 


0546 




LD 


(HL) ,A 


; STORE BYTE IN RAM 


23 


0547 




INC 


HL 




7C 


0548 




LD 


A,H 




BB 


0549 




CP 


E 


; CHECK FOR END OF TEST BLOCK 


20F7 


0550 




JR 


NZ.TEST2-* 






0551 


;NOW READ BACK 


EACH BYTE 8< 


COMPARE 


62 


0552 




LD 


H,D 




2E00 


0553 




LD 


L,0 


; POINT HL BACK TO START 


7D 


0554 


TEST3: 


LD 


A,L 




AC 


0555 




XOR 


H 


; RE-GENERATE TEST BYTE DATA 


AS 


0556 




XOR 


B 




CDB9F2 


0557 




CALL 


CHECK 


; VERIFY MEMORY DATA STILL GOOD 


CO 


055B 




RET 


NZ 


;EXIT IF ESC REQ IS INDICATED 



F2F7 


EB 


F2FB 


D5 


F2F9 


C5 


F2FA 


Dl 


F2FB 


CI 


F2FC 


03 


F2FD 


C9 



F2FE 
F2FF 
F300 
F301 
F302 
F305 
F306 
F309 
F30B 
F30E 
F311 
F313 
F315 
F317 
F319 
F31A 

F31B 
F31C 
F31D 
F31E 



F320 
F322 
F323 
F324 
F325 
F327 
F32B 



F329 
F32C 
F32D 
F32F 
F332 
F334 
F337 
F33A 



3D 

37 

CO 

4D 

CDFCF3 

79 

CDD2F3 

ED78 

CDD2F3 

CD07F4 

FEOD 

2806 

FE2D 

2804 

B7 

C9 

OC 
OC 
CD 
1BE2 



FE02 

37 

CO 

4D 

ED59 

B7 

C9 



21B5FF 

34 

CB46. 

21FEF4 

2803 

2120F5 

220DF0 

C9 



0623 
0624 
0625 
0626 
0627 
062B 
0629 
0630 
0631 
0632 
0633 
0634 
0635 
0636 
0637 
0638 
0639 
0640 
0641 
0642 
0643 
0644 
0645 
0646 
0647 
0648 
0649 
0650 
0651 
0652 
0653 
0654 
0655 
0656 
0657 
0658 
0659 
0660 
0661 
0662 
0663 
0664 
0665 
0666 
0667 
0668 
0669 
0670 
0671 
0672 
0673 
0674 
0675 
0676 
0677 
0678 
0679 
0680 
0681 
0682 
0683 
0684 
06B5 
0686 
0687 
0688 
0689 



EX 


DE.HL 


PUSH 


DE 


PUSH 


BC 


POP 


DE 


POP 


BC 


INC 


BC 


RET 





;HL S< DE FOR BYTECOUNT 

iGET OLD BC INTO DE 
;GET COUNT+1 INTO BC 



— READ FROM INPUT PORT COMMAND — 



INCMD: 



INI: 



DEC 


A 


SCF 




RET 


NZ 


LD 


C,L 


CALL 


CRLFS 


LD 


A,C 


CALL 


PUT2HS 


IN 


A, (C) 


CALL 


PUT2HS 


CALL 


ECHO 


CP 


CR 


JR 


Z, IN2-* 


CP 


'-' 


JR 


Z, IN3-* 


OR 


A 


RET 





! CHECK IF PARAMETER C0UNT=1 



: POINT C TO INPUT PORT 



IN2: INC C 

INC C 

IN3r DEC C 

JR IN1-* 



— WRITE TO OUTPUT PORT COMMAND — 



OUTCMD: CP 
SCF 
RET 
LD 
OUT 
OR 
RET 



NZ 
C,L 
(C) ,E 
A 



; CHECK IF PARAMETER C0UNT=2 



; POINT C TO OUTPUT PORT 
; OUTPUT DATA PASSED IN E 



— SWITCH CONSOLE OUTPUT DEVICE COMMAND — 



: TOGGLE CONSOLE OUT TYPE FLAG 



iJUMP IF ZERO TO ONE TRANSITION 



SWITCH: LD HL.COFLAG 

INC (HL) 

BIT 0, (HL) 

LD HL,SIOOUT 

JR Z,SWIT2-* 

LD HL,CRTOUT 

SWIT2: LD (CONOUT+1 ) , HL ; STORE NEW CNSL OUT ADDR 

RET 



* CONSOLE I/O PACKAGE AND UTILITY ROUTINES * 

* * 



F2AB 
F2AC 
F2AD 
F2AE 
F2B0 
F2B1 
F2B3 
F2B6 
F2BB 



F2B9 
F2BA 
F2BB 
F2BC 
F2BF 
F2C2 

F2C9 
F2CA 
F2CB 



F2CE 
F2D1 
F2D4 
F2D5 



F2E6 
F2EB 
F2E9 
F2EA 
F2ED 
F2EE 
F2EF 
F2F0 
F2F2 



7C 

BB 

20F4 

04 

3E2B 

CD15F4 

28DD 

C9 



BE 

CB 

F5 

CDCEF2 

CDECF3 

73686F7S 

6C643D 

04 

Fl 

C3D2F3 



CDFCF3 
CDCDF3 
7E 
C3D2F3 



F2DB 


FE03 


F2DA 


37 


F2DB 


CO 


F2DC 


71 


F2DD 


E5 


F2DE 


B7 


F2DF 


ED52 


F2E1 


El 


F2E2 


23 


F2E3 


3BF7 


F2E5 


C9 



FE03 

37 

CO 

CDF3F; 

79 

BO 

CB 

EDBO 

C9 



F2F3 EB 
F2F4 B7 
F2F5 EDS 



0559 
0560 
0561 
0562 
0563 
0564 
0565 
0566 
0567 
0568 
0569 
0570 
0571 
0572 
0573 
0574 
0575 
0576 

0577 
0578 
0579 
0580 
05 Bl 
05B2 
05B3 
0584 
0585 
0586 
05B7 
0588 
0589 
0590 
0591 
0592 
0593 
0594 
0595 
0596 
0597 
0598 
0599 
0600 
0601 
0602 
0603 
0604 
0605 
0606 
0607 
0608 
0609 
06 1 
0611 
0612 
0613 
0614 
0615 
0616 
0617 
0618 
0619 
0620 
0621 
0622 



INC 

LD 

CP 

JR 

INC 

LD 

CALL 

JR 

RET 



;ELSE GO ON TO NEXT BYTE 
; CHECK FOR END OF BLOCK 



CHECK: 



HL 

A,H 

E 

NZ,TEST3-* 

B ;BUMP PASS COUNT 

A, '+' 

OUTPUT ; PRINT '+' AND ALLOW FOR EXIT 

Z,TEST1-* ;D0 ANOTHER PASS IF NO ESCAPE 



i RETURN IF (HL)=A 

[PRINT WHAT WAS ACTUALLY READ 



MDATA: 



CP 


(HL) 


RET 


Z 


PUSH 


AF 


CALL 


MDATA 


CALL 


PNEXT 


DEFM 


' should 


DEFB 


EOT 


POP 


AF 


JP 


PUT2HS 


CALL 


CRLFS 


CALL 


PUT4HS 


LD 


A, (HL) 


JP 


PUT2HS 



; PRINT WHAT SHOULD HAVE READ 



-- FILL MEMORY WITH CONSTANT COMMAND — 



FILL: 



FILL1; 



CP 


3 


SCF 




RET 


NZ 


LD 


(HL),C 


PUSH 


HL 


OR 


A 


SBC 


HL.DE 


POP 


HL 


INC 


HL 


JR 


C,FILL1-* 


RET 





; CHECK IF PARAMETER C0UNT=3 



;COMP HL TO END ADDRESS IN DE 
! ADVANCE POINTER AFTER COMPARE 



; — MEMORY BLOCK MOVE COMMAND — 



BLOCK 



CP 


3 


SCF 




RET 


NZ 


CALL 


BLOCAD 


LD 


A,C 


OR 


B 


RET 


Z 


LDIR 




RET 





BLOCAD: EX' 
OR 
SBC 



DE,HL 

A 

HL,DE 
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; CHECK IF PARAMETER C0UNT=3 



lEXIT NOW IF BC=0 



; CLEAR CARRY 

;GET DIFFRENCE BETWEEN 

(continued on top of page 14) 



F33B 
F33C 
F33F 
F341 
F343 
F345 
F347 
F349 
F34A 
F34B 
F34C 
F34D 
F34F 
F350 

F351 
F352 

F353 
F354 
F357 
F359 
F35A 
F35B 
F35C 
F35D 
F35F 



F36A 
F36D 
F370 
F372 
F374 
F375 



41 

CD07F4 

FEOD 

280E 

FEOB 

280C 

FE20 

D8 

77 

OD 

20ED 
37 
C9 

77 
C9 

2B 

CDECF3 

2008 

04 

OC 

78 

91 

30DD 

C9 



0690 
0691 



GETLIN: 



F360 


EDB1 


F362 


CO 


F363 


09 


F364 


09 


F365 


09 


F366 


4E 


F367 


23 


F36B 


46 


F369 


C9 



010000 

FD7E00 

FEOD 

200B 

AF 

C9 



F376 OC 

F377 OC 

F378 CB59 

F37A 37 



0692 GLIN1: 

0693 

0694 

0695 

0696 

0697 

0698 

0699 

0700 

0701 

0702 

0703 

0704 

0705 

0706 GLIN2: 

0707 

0708 

0709 GLIN4: 

0710 

0711 

0712 

0713 

0714 

0715 

0716 

0717 

071 B ; 

0719 ; 

0720 ; 
0721 
0722 
0723 
0724 
0725 
0726 
0727 
072B 
0729 

07; 
07: 
07: 

0733 
0734 
0735 
0736 
0737 
0738 
0739 
0740 
0741 
0742 
0743 
0744 



SEARCH: 



PARAMS: 



PARA1: 



LD 

CALL 

CP 

JR 

CP 

JR 

CP 

RET 

LD 

INC 

DEC 

JR 

SCF 

RET 

LD 
RET 

DEC 

CALL 

DEFB 

DEFB 

INC 

LD 

SUB 

JR 

RET 



LD 

LD 

CP 

JR 

XOR 

RET 

INC 
INC 
BIT 
SCF 



B,C 

ECHO 

CR 

Z,GLIN2-* 

'H'-64 

Z,GLIN4-* 

C 

(HL) ,A 

HL 

C 

NZ.GLIN1-* 



(HL) ,A 



HL 

PNEXT 

' ','H'-64 

EOT 

C 

A,B 

C 

NC,GLIN1-* 



CPIR 




RET 


NZ 


ADD 


HL,BC 


ADD 


HL,BC 


ADD 


HL.BC 


LD 


C, (HL) 


INC 


HL 


LD 


B, (HL) 


RET 





;SAVE MAX LINE LNGTH PARAM IN B 
;GET A CHAR FROM THE CONSOLE 
; CHECK FOR CARRIAGE RETURN 

; CHECK FOR CTL-H BACKSPACE 



; OTHER CONT CHARACTERS ILLEGAL 

; STORE CHARACTER IN BUFFER 

;GET ANOTHER IF MORE ROOM 

; RETURN WITH CARRY=1 IF TOO 
;MANY CHARACTERS ARE ENTERED 
;PUT <CR> ON END OF LINE 
; RETURN WITH CARRY BIT=0 

; DELETE LAST CHAR FROM BUFFER 

; PRINT A SPACE TO OVERWRITE THE 
;LAST CHAR, THEN DO A BACKSPACE 

;MAKE SURE YOU'RE NOT TRYING TO 
;<BS> PAST START OF THE LINE 



;SRCH TBL S)HL FOR MATCH WITH A 
;EXIT NOW IF SEARCH FAILS 

;+ RESIDUE FROM CPIR BYTECOUNT 
;T0 HL 3 TIMES TO GET POINTER 
;T0 ADDRESS PART OF TABLE ENTRY 



;EXIT WITH Z=l TO SHOW MATCH 



BC,0 

A, (IY+O) 

CR ; CHECK IF LINE TERMINATES 

NZ,PARA2-* ; IMMEDIATELY WITH A RETURN 

A 

;RET WITH PARAM COUNT=0 IF SO 

C 
C 
3.C 
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I SUBSCRIPTION FORM 1 



(It's OK to brag!) 

□ I own a big board (Hooray!) 

□ I don't own a Big Board but am very interested (There's hope) 



EXPERTISE 

Guru=5 Novice=0 



INTEREST 

Fanatic=5 None=0 



□ 
□ 
□ 

D 
□ 

□ 



□ 
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□ 



What are your hardware/software needs now? 



In the near future? 



Software Systems 
Software Applications 
Languages 1 

2 

3 

Hardware 

Are you willing to be a resource in the areas where 
your expertise is 4 or 5? 

love to □ 

probably □ 

maybe □ 

noD 

How are you using the Big Board? 

Home System □ 
Business System □ 

Software Development □ 

OEMD 

Education □ 
Other □ 

What kinds of information do you need right now? 

If you get the idea that this document is as interested 

in enlisting your aid and ideas as it is in getting a sub- 

scription, you're right. Lots of people are willing to 

subscribe, lots of people have ideas - and we'd like to 

encourage lots of people (especially you) to take an 

hour or two and put ideas and needs and accomplish- 
ments down on paper or disk. Then we can pass them 

along to others and that's what this journal is all about. 

Send me six issues (1 yr.) of MICRO CORNUCOPIA. I understand that I can cancel at any time and receive a refund 
for the balance of the subscription. (Issue #1 was published in August 1981.) 



What kind of exciting adventure (misadventure) are 
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U.S. 
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